clear
clear matrix
set more off
set memory 32m, permanent

* Data from: Threshold and Group Size Uncertainty in Common-pool Resources: An Experimental Study
* Published 2020: Public Finance Review
* Authors: Abdul Kidwai and Angela de Oliveira
use kidwai_data.dta

* GU only comparisons (Figure 2)
gen GU2 = (gsunc==2)
gen GU4 = (gsunc==4)
gen GU6 = (gsunc==6)
gen GU8 = (gsunc==8)

* Excluding outliers (requests >= 300)
reg ext GU2 GU4 GU6 GU8 if orgthunc==0&ext<300, nocons vce(cluster subject)
test GU2 == GU4
test GU4 == GU6
test GU6 == GU8
test GU2 == 1000/6
test GU4 == 1000/5
test GU6 == 1000/4
test GU8 == 1000/3
test GU2 == 1000/7
test GU4 == 1000/6
test GU6 == 1000/5
test GU8 == 1000/4

* All data
reg ext GU2 GU4 GU6 GU8 if orgthunc==0, nocons vce(cluster subject)
test GU2 == GU4
test GU4 == GU6
test GU6 == GU8
test GU2 == 1000/6
test GU4 == 1000/5
test GU6 == 1000/4
test GU8 == 1000/3
test GU2 == 1000/7
test GU4 == 1000/6
test GU6 == 1000/5
test GU8 == 1000/4

/* TU: data versus pessimistic theory */
reg ext if orgthunc==10&gsunc==0, vce(cluster subject)
test _cons = 165.83
reg ext if orgthunc==70&gsunc==0, vce(cluster subject)
test _cons = 160.83
reg ext if orgthunc==250&gsunc==0, vce(cluster subject)
test _cons = 145.83
reg ext if orgthunc==450&gsunc==0, vce(cluster subject)
test _cons = 129.17
reg ext if orgthunc==1400&gsunc==0, vce(cluster subject)
test _cons = 50.0
reg ext if orgthunc==1800&gsunc==0, vce(cluster subject)
test _cons = 16.67

/* GU: data versus pessimistic theory */
reg ext if orgthunc==0&gsunc==2, vce(cluster subject)
test _cons = 142.86
reg ext if orgthunc==0&gsunc==4, vce(cluster subject)
test _cons = 125.0
reg ext if orgthunc==0&gsunc==6, vce(cluster subject)
test _cons = 111.11
reg ext if orgthunc==0&gsunc==8, vce(cluster subject)
test _cons = 100.10

/* TGU low: data versus pessimistic theory */
reg ext if orgthunc==10&gsunc==2, vce(cluster subject)
test _cons = 165.8
reg ext if orgthunc==70&gsunc==2, vce(cluster subject)
test _cons = 160.8
reg ext if orgthunc==250&gsunc==2, vce(cluster subject)
test _cons = 175.5
reg ext if orgthunc==450&gsunc==2, vce(cluster subject)
test _cons = 188.5
reg ext if orgthunc==1400&gsunc==2, vce(cluster subject)
test _cons = 261.5
reg ext if orgthunc==1800&gsunc==2, vce(cluster subject)
test _cons = 292.3

/* TGU high: data versus pessimistic theory */
reg ext if orgthunc==10&gsunc==6, vce(cluster subject)
test _cons = 248.8
reg ext if orgthunc==70&gsunc==6, vce(cluster subject)
test _cons = 241.3
reg ext if orgthunc==250&gsunc==6, vce(cluster subject)
test _cons = 291.7
reg ext if orgthunc==450&gsunc==6, vce(cluster subject)
test _cons = 272.2
reg ext if orgthunc==1400&gsunc==6, vce(cluster subject)
test _cons = 377.8
reg ext if orgthunc==1800&gsunc==6, vce(cluster subject)
test _cons = 422.2






